home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abe.d64 / star wars (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  27KB  |  851 lines
  1. 10 REM      STAR WARS 64
  2. 12 :
  3. 14 REM      REV 04.2 - 840513
  4. 16 :
  5. 17 REM      ADAPTED FOR C-64
  6. 18 REM            BY
  7. 20 REM      JAMES R. PRING
  8. 26 :
  9. 27 REM   THIS IS PUBLIC DOMAIN SOFTWARE          AND IS NOT TO BE SOLD.
  10. 29 :
  11. 30 PRINT"[147][144]";:REM CLS & SELECT BLACK
  12. 40 POKE53281,0:REM SCREEN COLOR
  13. 50 POKE53280,0:REM BORDER COLOR
  14. 60 PRINTCHR$(142);:REM UPPER CASE
  15. 70 PRINTCHR$(8);:REM DISABLE SHIFT'C'
  16. 99 :
  17. 100 GOTO8600
  18. 110 PRINT"[147]"
  19. 120 IFL<4THENPRINTTAB(11)"<<- [211][212][193][210][160][215][193][210][211] ->>":GOTO140
  20. 130 PRINT"  <<- [211][212][193][210][160][215][193][210][211][160]* [215][201][212][200][160][196][197][193][212][200][160][211][212][193][210] ->>
  21. 140 [150][165]A(X)[178][181]([187](0)[172]X)[170]1
  22. 150 LC$[178]"                                        ON"
  23. 160 LL$[178]""
  24. 180 [143]  ** INITIALIZE **
  25. 190 [153]"(null)RE-FLIGHT INSPECTION BEING PERFORMED.
  26. 200 K1=FNA(K3)+K4:D3=FNA(11)+D4:S1=FNA(S4)+S4
  27. 210 B1=FNA(B2):IFL=1ANDB1<3THEN210
  28. 220 IFL=2ANDB1<2THEN210
  29. 340 D1=INT((FNA(1999)+2000)/10)*10
  30. 350 D2=D3+D1
  31. 360 REM  ** COMPUTE GALAXY **
  32. 365 REM  * ASSIGN STARS *
  33. 370 FORI=1TOS1
  34. 390 A1=FNA(8):A2=FNA(8)
  35. 400 IFS(A1,A2)=S6THENGOSUB5720
  36. 410 S(A1,A2)=S(A1,A2)+1:NEXTI
  37. 420 PRINT"[215]EAPONS BEING ON-LOADED.
  38. 430 [129]X[178]1[164]2000:[130]
  39. 440 [143]  * ASSIGN BASES *
  40. 460 [129]I[178]1[164]B1
  41. 470 A1[178][165]A(8):A2[178][165]A(8)
  42. 490 [139]S(A1,A2)[177][178]10[167]510
  43. 500 S(A1,A2)[178]S(A1,A2)[170]10
  44. 510 [130]I
  45. 515 [143]  * ASSIGN ENEMY *
  46. 517 X3[178]1
  47. 520 [129]I[178]1[164]K1
  48. 530 A1[178][165]A(8):A2[178][165]A(8)
  49. 540 [139]S(A1,A2)[177][178]K2[172]100[167][141]5720
  50. 550 S(A1,A2)[178]S(A1,A2)[170]100:[130]I
  51. 560 [139]L[179]4[167]610
  52. 565 [143]  * ASSIGN DEATH STAR *
  53. 570 [129]I[178]1[164]D5
  54. 580 A1[178][165]A(8):A2[178][165]A(8)
  55. 600 S(A1,A2)[178]S(A1,A2)[170].1:[130]I
  56. 610 [143]  ** INITIALIZE QUADRANT/SECTOR
  57. 620 E1[178][165]A(8):E2[178][165]A(8):E7[178][165]A(8):E8[178][165]A(8):P[178]3000
  58. 640 T1[178]20:[153]"ATNUTOMATIC SYSTEMS CHECK IN PROGRESS.
  59. 660 FORX=1TO3000:NEXT
  60. 670 PRINT"[193]LL SYSTEMS GO -- STAND BY FOR ORDERS.
  61. 680 [129]X[178]1[164]2000:[130]
  62. 700 [153]"LOAD  *****  (null)(null)STR$VAL(null)(null):  (null)TARDATE"D1" *****"
  63. 705 [153]"   (null)OU ARE THE PILOT OF AN (null)-WING
  64. 710 PRINT"FIGHTER.  [217]OUR MISSION IS TO RID THE
  65. 715 [153]"GALAXY OF STR$ARTH (null)ADER AND HIS RIGHT$MPERIAL
  66. 720 PRINT"TASK FORCE OF"K1"[212][201][197]-[198][201][199][200][212][197][210][211].  ";
  67. 725 IFL<4THEN770
  68. 730 PRINT"[217]OU
  69. 733 [153]"MUST ALSO DESTROY HIS STR$VALATN(null)LEFT$CLOSE(null)(null)ATN(null) BATTLE
  70. 735 PRINT"STATION.  [217]OU HAVE UNTIL STARDATE"D2
  71. 740 PRINT"TO COMPLETE YOUR MISSION.
  72. 745 [153]"   (null)HERE IS ONE STR$VALATN(null)LEFT$CLOSE(null)(null)ATN(null) AND YOU MUST
  73. 750 PRINT"DESTROY IT WITH A TORPEDO BEFORE YOU
  74. 755 [153]"CAN WIN THE GAME.  (null)HE STR$VALATN(null)LEFT$CLOSE(null)(null)ATN(null) WILL
  75. 760 PRINT"[206][207][212] SHOW UP ON LONG RANGE SENSOR SCANS
  76. 765 [153]"OR INTELLIGENCE REPORTS HOWEVER.":[137]780
  77. 770 [153]"(null)OU
  78. 773 PRINT"HAVE UNTIL STARDATE"D2"TO COMPLETE
  79. 775 [153]"YOUR MISSION.
  80. 780 PRINT"   [217]OU HAVE AT LEAST ONE SUPPORTING
  81. 785 [153]"(null)(null)ATN(null)PEEKATN(null)VAL.  (null)HEN YOUR FIGHTER DOCKS AT
  82. 790 PRINT"ONE (IS POSITIONED NEXT TO ONE) IT IS
  83. 795 [153]"REPAIRED AND RESUPPLIED WITH FUEL AND
  84. 800 PRINT"TORPEDOES.  [217]OUR FIGHTER IS CURRENTLY
  85. 805 [153]"IN (null)(null)ATNSTR$(null)ATN(null)(null)"E1"CMD";[171]E2"CMD, (null)VALLEN(null)(null)(null)"E7"CMD";[171]E8"CMD."
  86. 810 [153]"   (null)AY THE ASC(null)(null)LENVAL BE WITH YOU.
  87. 820 PRINT"   [208]RESS [211][208][193][195][197][160][194][193][210] FOR [204][193][213][206][195][200].[145]":GOSUB9030
  88. 830 GOSUB9210
  89. 840 POKES+24,15+16+32:POKES+23,1+16*5
  90. 850 POKES+5,0
  91. 860 POKES+6,16*15+15
  92. 870 POKES+4,129
  93. 880 POKES+1,11
  94. 890 PI=100
  95. 900 POKES+22,PI:POKES+23,1OR(16-PI/16)*16
  96. 910 PI=PI+PI/200:IFPI<200THEN900
  97. 920 POKES+4,128
  98. 940 :
  99. 945 REM  *** MAIN CONTROL PROGRAM ***
  100. 950 :
  101. 955 REM  ** SET-UP **
  102. 960 GOSUB2010:PRINT"[147]"CHR$(142):GOSUB3090
  103. 975 GOSUB1310
  104. 980 POKE53281,1:REM  SCREEN ON
  105. 995 REM  ** COMMAND CONTROL **
  106. 1000 PRINT""TAB(27)"COMMAND ";:GOSUB9900:IFVAL(A$)>0THEN1010
  107. 1005 IFA$=CHR$(133)THENPRINT"[147]";:GOSUB1310
  108. 1006 IFA$="H"THEN1900
  109. 1007 IFA$="Q"THENGOSUB9100:GOSUB9210:PRINTCHR$(9)TAB(12)"HAVE A NICE DAY.":END
  110. 1008 GOSUB9100
  111. 1010 C2=VAL(A$)
  112. 1020 IFC9=7AND(C2=1ORC2=4)THENPRINT"";:GOSUB9100:PRINT"":GOTO1090
  113. 1030 GOSUB9100
  114. 1090 C9=C2:ONC2GOTO2640,2390,4270,4860,1220,5550,5880
  115. 1100 C9=C2:PRINT"YOUR CHOICES OF COMMAND ARE:
  116. 1110 [153][163]5)"1 - FLIGHT CONTROL
  117. 1120 PRINTTAB(5)"2 - LONG RANGE SENSOR SCAN
  118. 1130 [153][163]5)"3 - FIRE PHASERS
  119. 1140 PRINTTAB(5)"4 - FIRE PHOTON TORPEDOES
  120. 1150 [153][163]5)"5 - DAMAGE CONTROL REPORT
  121. 1160 PRINTTAB(5)"6 - INTELLIGENCE REPORT
  122. 1170 [153][163]5)"7 - R2-D2, NAVIGATIONAL ROBOT
  123. 1175 IFA$="H"THENPRINT:RETURN
  124. 1180 PRINTTAB(5)"H[146] - HELP
  125. 1190 [153][163]5)"QWAIT - QUIT
  126. 1200 GOTO1000
  127. 1220 REM  ** DAMAGE CONTROL **
  128. 1225 IFR(6)<0THENPRINT"*** DAMAGE CONTROL IS NOT AVAILABLE ***":GOTO1000
  129. 1230 PRINTTAB(9)"DAMAGE CONTROL REPORT
  130. 1240 [153]"      DEVICE"[166]10)"STATE OF REPAIR
  131. 1250 FORC2=1TO8:PRINTTAB(3);:GOSUB3880
  132. 1260 IFR(C2)<0THENPRINTTAB(23)INT(R(C2)*10)/10" STARDAYS
  133. 1270 [139]R(C2)[177][178]0[167][153][163]24)"0   STARDAYS
  134. 1280 NEXTC2:GOTO1000
  135. 1310 REM  ** S.R. SENSOR SCAN **
  136. 1320 PRINT""TAB(24)"MISSION"L"STATUS":GOSUB9160
  137. 1340 IFR(2)<0THENPRINTLL$;LC$TAB(6)"*** S.R. SENSORS ARE OUT ***":GOTO1590
  138. 1370 GOSUB2010:PRINT"";
  139. 1380 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  140. 1410 FORI=1TO8:FORJ=1TO8:PRINT"";
  141. 1420 OND(I,J)GOTO1460,1480,1500,1520,1540
  142. 1440 PRINT" : ";:GOTO1560:  VOID
  143. 1460 PRINT" * ";:GOTO1560:  STAR
  144. 1480 PRINT"[171][215][179]";:GOTO1560:  TIE-FIGHTER
  145. 1500 PRINT"[215][219][215]";:GOTO1560:  STARBASE
  146. 1520 PRINT">[218]<";:GOTO1560:  X-WING
  147. 1540 PRINT"[202][209][201]";     :REM   DEATHSTAR
  148. 1560 NEXTJ:PRINTSPC(3)"[146][144]";
  149. 1580 ONIGOTO1600,1620,1740,1760,1780,1800,1820,1840
  150. 1590 IFR(2)<0THENFORX=0TO7:PRINTTAB(27);:ONXGOTO1620,1740,1760,1780,1800,1820,1840
  151. 1600 PRINT"DATE:"D1:GOTO1860
  152. 1620 PRINT"COND:       [157][157][157][157][157][157][157]";
  153. 1640 ONC1GOTO1680,1700,1720
  154. 1660 PRINT" GREEN[144]":GOTO1860
  155. 1680 PRINT" [158]YELLOW[144]":GOTO1860
  156. 1700 PRINT"  RED [144]":GOTO1860
  157. 1720 PRINT" [153]DOCKED[144]":GOTO1860
  158. 1740 PRINT"QUAD:"E1"[157]";-E2:GOTO1860
  159. 1760 PRINT"SECT:"E7"[157]";-E8:GOTO1860
  160. 1780 PRINT"FUEL:     [157][157][157][157][157]"INT(P):GOTO1860
  161. 1800 PRINT"TORP:   [157][157][157]"T1:GOTO1860
  162. 1820 PRINT"ENMY:    [157][157][157][157]"K1:GOTO1860
  163. 1840 PRINT"DAYS:    [157][157][157][157]"D2-D1
  164. 1860 IFR(2)<0THENNEXT X:RETURN
  165. 1870 NEXT I
  166. 1880 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][146][144]";:RETURN
  167. 1900 REM  ** HELP MENU **
  168. 1910 GOSUB9100:PRINT"C3-PO HERE, HOW MAY I HELP YOU SIR?":GOSUB1110
  169. 1920 PRINTTAB(5)"8 - COMPLETE INSTRUCTIONS
  170. 1930 [161]A$:[139]A$[178]""[167]1930
  171. 1940 [139][197](A$)[179]1[176][197](A$)[177]8[167]1930
  172. 1945 [139]A$[178]"8"[167]10000
  173. 1950 [153][199](14):[145][197](A$)[141]11100,11700,12000,12300,12600,12900,13200
  174. 1960 [139][197](A$)[178]1[167][141]9000:[141]11400
  175. 1970 [141]9000:[153]"LOAD"[199](142);:[141]1310:[141]9100:[137]1100
  176. 2010 [143]  ** COMPUTE SECTOR LAYOUT **
  177. 2020 [139]L1[179][177]E1[176]L2[179][177]E2[167]2050
  178. 2030 [139]X2[178]1[167]2070
  179. 2040 [142]
  180. 2050 L1[178]E1:L2[178]E2
  181. 2070 [129]I[178]1[164]8:[129]J[178]1[164]8
  182. 2080 [139]X2[178]0[167]D(I,J)[178]0:J(I,J)[178]0
  183. 2090 [139]X2[178]1[175]D(I,J)[178]2[167]D(I,J)[178]0
  184. 2100 [130] J,I
  185. 2110 [139]X2[178]1[167]2300
  186. 2120 D([181](E7[170].5),[181](E8[170].5))[178]4
  187. 2124 [143]  * STARS *
  188. 2126 [139]S(E1,E2)[171][181](S(E1,E2)[173]10)[172]10[179]1[167]2180
  189. 2130 [129]I[178]1[164][181](S(E1,E2)[171][181](S(E1,E2)[173]10)[172]10)
  190. 2140 E3[178][165]A(8):E4[178][165]A(8)
  191. 2160 [139]D(E3,E4)[179][177]0[167]2140
  192. 2170 D(E3,E4)[178]1:[130] I
  193. 2180 [143]  * DEATHSTAR *
  194. 2190 [129]I[178]1[164]D5
  195. 2200 E3[178][165]A(8):E4[178][165]A(8)
  196. 2220 [139]D(E3,E4)[179][177]0[167]2200
  197. 2230 [139]S(E1,E2)[179][177][181](S(E1,E2))[167]D(E3,E4)[178]5
  198. 2240 [130] I
  199. 2245 [143]  * BASES *
  200. 2247 [139]S(E1,E2)[173]10[171][181](S(E1,E2)[173]100)[172]10[179]1[167]2300
  201. 2250 [129]I[178]1[164][181](S(E1,E2)[173]10[171][181](S(E1,E2)[173]100)[172]10)
  202. 2260 E3[178][165]A(8):E4[178][165]A(8):[139]D(E3,E4)[179][177]0[167]2260
  203. 2290 D(E3,E4)[178]3:[130] I
  204. 2300 [143]  * ENEMY *
  205. 2310 [139]S(E1,E2)[173]100[179]1[167]2380
  206. 2320 [129]I[178]1[164][181](S(E1,E2)[173]100)
  207. 2330 E3[178][165]A(8):E4[178][165]A(8):[139]D(E3,E4)[179][177]0[167]2330
  208. 2360 D(E3,E4)[178]2:J(E3,E4)[178]P(I):[139]X2[178]0[167]J(E3,E4)[178]300:P(I)[178]300
  209. 2370 [130] I
  210. 2380 X2[178]0:[142]
  211. 2390 [143]  ** L.R. SENSOR SCAN **
  212. 2400 [139]R(3)[179]0[167][153][163]6)"*** L.R. SENSORS ARE OUT ***":[137]1000
  213. 2420 [153]"LONG RANGE SENSOR SCAN FOR QUADRANT"E1"CMD";[171]E2""
  214. 2440 [153][163]11)"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  215. 2460 [129]I[178]E1[171]1[164]E1[170]1:[153][163]11);
  216. 2470 [129]J[178]E2[171]1[164]E2[170]1:[139]I[179]1[176]I[177]8[167]2610
  217. 2490 [139]J[179]1[176]J[177]8[167]2590
  218. 2495 [139]I[178]E1[175]J[178]E2[167][153]">(null)<    ";:[137]2530
  219. 2500 [139]S(I,J)[179]10[167]2600
  220. 2510 [139]S(I,J)[179]100[167]2630
  221. 2520 [153][202]([196]([181](S(I,J))),2)[166]4);
  222. 2530 Q(I,J)[178]1
  223. 2540 [130] J:[153]
  224. 2560 [153][163]11)"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN":[130] I:[137]1000
  225. 2590 [153]" ?     ";:[137]2540
  226. 2600 [153]"00"[202]([196]([181](S(I,J))),2)[166]4);:[137]2530
  227. 2610 [153]" ?      ?      ?":[137]2560
  228. 2630 [153]"0"[202]([196]([181](S(I,J))),2)[166]4);:[137]2530
  229. 2640 [143]  ** FLIGHT CONTROL **
  230. 2641 P9[178]0:[139]R(1)[179]0[167]2665
  231. 2642 [153]"DO YOU WANT AUTOMATIC FLIGHT CONTROL?
  232. 2643 PRINT"  *** INTER-QUADRANT FLIGHT ONLY ***[145][145]";:GOSUB9900:IFA$="N"THEN2660
  233. 2644 IFA$=CHR$(133)THEN1000
  234. 2645 IFA$<>"Y"THENPRINTLL$;:GOTO2640
  235. 2646 PRINTLL$;:GOSUB9100:PRINT"ENTER DESTINATION COORDINATES";:INPUTZ9%,Z3%
  236. 2648 IFZ9%<1ORZ9%>8ORZ3%<1ORZ3%>8THEN2646
  237. 2649 PRINT"[145]"LC$"STANDBY FOR JUMP TO HYPERSPACE!":FORT=1TO2000:NEXT:POKE53281,0
  238. 2650 Z1=E1-Z9%:Z2=E2-Z3%:C3=SQR(Z1^2+Z2^2):E1=Z9%:E2=Z3%:P=P-(SQR(C3)+C3)*50
  239. 2653 IFP<=0THEN6780
  240. 2657 PRINTLL$;LC$:GOSUB9150:PRINTLEFT$(LL$,11);:GOSUB2010:GOTO2980
  241. 2660 PRINT"[145][145]";:GOSUB9100
  242. 2665 PRINT"COURSE      DEGREES.[157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:GOTO4940
  243. 2670 PRINTTAB(12)"[145]   WARP FACTOR (0-8)  [157][157]";:INPUTC3:IFC3<0ORC3>8THEN2670
  244. 2680 PRINTLL$;:GOSUB9100:PRINT"[145]";
  245. 2720 IFR(1)>=0ORC3<=.5THEN2760
  246. 2740 PRINT"    *** WARP ENGINES ARE DAMAGED
  247. 2750 [153][163]14)"MAXIMUM WARP IS .5 ***":[137]1000
  248. 2760 P[178]P[171]([186](C3)[170]C3)[172]20:[139]P[179][178]0[167]6780
  249. 2790 N2[178][171][190](C2[172][255][173]180)[173]2:[139]N2[179]0[167]N2[178]N2[171].001
  250. 2800 [139][182](N2)[179].01[167]N2[178]0
  251. 2820 N3[178][191](C2[172][255][173]180)[173]2:[139]N3[179]0[167]N3[178]N3[171].001
  252. 2840 [139][182](N3)[179].01[167]N3[178]0
  253. 2850 N1[178]16[172]C3[172](2[172]([182](N2)[170][182](N3))):[139]N1[179]1[167]2980
  254. 2860 [129]A1[178]1[164]N1
  255. 2870 E3[178]E7:E4[178]E8:P1[178]E3[170]N2:P2[178]E4[170]N3:X[178][181](P1[170].5):Y[178][181](P2[170].5)
  256. 2880 [139](E1[178]1[175]P1[179].5)[176](E2[178]1[175]P2[179].5)[167]3081
  257. 2890 [139](E1[178]8[175]P1[177][178]8.5)[176](E2[178]8[175]P2[177][178]8.5)[167]3081
  258. 2910 [139]P1[179].5[176]P1[177][178]8.5[167]3580
  259. 2920 [139]P2[179].5[176]P2[177][178]8.5[167]3670
  260. 2930 [139]D(X,Y)[179][177]0[175]D(X,Y)[179][177]4[167]3760
  261. 2950 D([181](E3[170].5),[181](E4[170].5))[178]0:D(X,Y)[178]4:E7[178]P1:E8[178]P2
  262. 2970 [130] A1
  263. 2980 [139]L[177]2[167]X2[178]1:[141]2010
  264. 2990 D1[178]D1[170]1:[139]D1[177]D2[167]6780
  265. 3000 E7[178][181](E7[170].5):E8[178][181](E8[170].5)
  266. 3010 [143]  * FIX-UP *
  267. 3020 [129]I[178]1[164]8:[139]R(I)[178]0[167]3070
  268. 3040 R(I)[178]R(I)[170]1:[139]R(I)[179]0[167]3070
  269. 3060 R(I)[178]0
  270. 3070 [130] I
  271. 3075 [141]3090:[141]4040:[141]3340:[139]C1[178]3[167][141]3270
  272. 3080 [137]975
  273. 3081 [143]  * SHUT DOWN WARP DRIVE *
  274. 3082 A1[178]N1:[139]P1[179]1[167]P1[178]1
  275. 3083 [139]P2[179]1[167]P2[178]1
  276. 3084 [139]P1[177]8[167]P1[178]8
  277. 3085 [139]P2[177]8[167]P2[178]8
  278. 3086 [153]"WARP ENGINES SHUT DOWN AT SECTOR"[181](P1[170].5)"CMD";[171][181](P2[170].5)
  279. 3087 [153]"OF QUADRANT"E1"CMD";[171]E2"CMD.  YOU CANNOT LEAVE THE
  280. 3088 PRINT"GALAXY.  YOU ARE ONLY WASTING FUEL.
  281. 3089 X[178][181](P1[170].5):Y[178][181](P2[170].5):[137]2930
  282. 3090 [143] ** SCAN FOR DOCKED STARSHIP **
  283. 3100 [129]I[178]E7[171]1[164]E7[170]1:[139]I[179]1[176]I[177]8[167]3180
  284. 3130 [129]J[178]E8[171]1[164]E8[170]1:[139]J[179]1[176]J[177]8[167]3170
  285. 3160 [139]D(I,J)[178]3[167]3260
  286. 3170 [130] J
  287. 3180 [130] I
  288. 3200 C1[178]0:[139]S(E1,E2)[179]100[167]3230
  289. 3210 C1[178]2:[137]3330
  290. 3230 [139]P[177]600[167]3330
  291. 3250 C1[178]1:[137]3330
  292. 3260 C1[178]3
  293. 3270 P[178]3000:T1[178]20:P9[178]0
  294. 3300 [129]I[178]1[164]8:R(I)[178]0:[130]
  295. 3330 [139](S(E1,E2)[171][181](S(E1,E2)))[172]10[177]0[167]C1[178]2
  296. 3335 [142]
  297. 3340 [143]  **CHECK FOR SPACE STORM/TRUCE
  298. 3350 C2[178][187](0):[139]C2[179].35[167]3460
  299. 3370 [139]C2[179].95[167]3570
  300. 3380 [153][163]10)"*** SPACE STORM ***":[139]C1[179]3[167]3420
  301. 3400 [153]"STARBASE SHIELDS PROTECT YOUR FIGHTER":[142]
  302. 3410 [143]  ** BREAK SOMETHING! **
  303. 3420 C2[178][165]A(8):[141]3880:[153]" DAMAGED ***
  304. 3440 R(C2)=R(C2)-5*RND(0):GOTO3570
  305. 3460 FORC2=1TO8:IFR(C2)<0THEN3500
  306. 3480 NEXT C2:GOTO3570
  307. 3500 PRINT"*** TRUCE:  ";:GOSUB3880:PRINT" -
  308. 3530 [153][163]9)"- STATE OF REPAIR IMPROVED ***
  309. 3540 R(C2)=R(C2)+2*RND(0):IFR(C2)<0THEN3570
  310. 3560 R(C2)=0
  311. 3570 RETURN
  312. 3580 REM  ** CHANGE QUADRANT (VERT) **
  313. 3600 S2=SGN(P1-1):S3=E1+S2:E7=INT(P1*100)/100-(8*S2):L1=0
  314. 3620 IFS3<1ORS3>8THEN3645
  315. 3640 E1=S3
  316. 3645 E8=INT(P2+.5):IFP2<.5THEN3670
  317. 3660 IFP2<8.5THEN3738
  318. 3670 REM  ** CHANGE QUADRANT (HORIZ) **
  319. 3690 S2=SGN(P2-1):S3=E2+S2:E8=INT(P2*100)/100-(8*S2):L2=0
  320. 3710 IFS3<1ORS3>8THEN3735
  321. 3730 E2=S3
  322. 3735 IFL1<>0THENE7=INT(P1+.5)
  323. 3738 IFL>4THEN3750
  324. 3740 IFS(E1,E2)=INT(S(E1,E2))THEN3750
  325. 3742 REM ** DEATH STAR WARNING **
  326. 3744 PRINTLL$:GOSUB9100:PRINTTAB(14)"EMERGENCY!!
  327. 3746 [153][163]7)"DEATH STAR IN QUADRANT"E1"CMD";[171]E2
  328. 3750 [141]2010:[137]2970
  329. 3760 [153]"YOUR FIGHTER BLOCKED IN QUADRANT"E1"CMD";[171]E2
  330. 3770 [153]"AT SECTOR"[181](P1[170].5)"CMD";[171][181](P2[170].5):[137]2990
  331. 3880 [145]C2[171]1[137]3890,3900,3910,3920,3930,3940,3950
  332. 3885 [153]"WARP ENGINES";:[142]
  333. 3890 [153]"S.R. SENSORS";:[142]
  334. 3900 [153]"L.R. SENSORS";:[142]
  335. 3910 [153]"PHASER CONTROLS";:[142]
  336. 3920 [153]"PHOTON TUBES";:[142]
  337. 3930 [153]"DAMAGE CONTROL";:[142]
  338. 3940 [153]"COMMUNICTAIONS";:[142]
  339. 3950 [153]"R2-D2";:[142]
  340. 4040 [143] ** ENEMY CHECK & X-WING ZAP **
  341. 4045 [139]S(E1,E2)[179]100[167][142]
  342. 4050 [153]:G[178]1:H[178]0
  343. 4070 [129]I[178]1[164]S(E1,E2)[173]100
  344. 4080 H[178]H[170]1:[139]H[179]9[167]4120
  345. 4100 H[178]1:G[178]G[170]1
  346. 4120 [139]D(G,H)[179][177]2[167]4080
  347. 4140 Q1[178]G[171]E7:Q2[178]H[171]E8:D4[178][186](Q1[174]2[170]Q2[174]2):P5[178][187](0)[172]J(G,H)
  348. 4170 J(G,H)[178]J(G,H)[171]P5:[139]C1[178]3[167][141]3400
  349. 4180 P6[178]P5[173]D4:[139]C1[178]3[167]4220
  350. 4190 P[178]P[171]P6:[139]P[179][178]0[175]C1[179][177]3[167]6780
  351. 4200 [153]"YOUR FIGHTER HIT"[181](P6[172]1000)[173]1000"UNITS.
  352. 4210 PRINT"TIE-FIGHTER AT SECTOR"G"[157]";-H"[157].
  353. 4220 [130] I
  354. 4240 [142]
  355. 4270 [143]  ** PHASER CONTROL **
  356. 4280 [139]R(4)[177][178]0[175]S(E1,E2)[177][178]100[167]4310
  357. 4290 [139]R(4)[179]0[167][153][163]8)"*** PHASERS ARE OUT ***
  358. 4295 IFS(E1,E2)<100THENPRINT"JUST WHAT THE HECK ARE YOU SHOOTING AT?
  359. 4300 [137]1000
  360. 4310 [153][163]5)"<< PHASERS LOCKED ON TARGET >>
  361. 4320 PRINT"ENERGY AVAILABLE ="INT(P)"UNITS.
  362. 4330 [133]"FIRE       UNITS.CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";C$:C2[178][197](C$)
  363. 4350 [139]C2[179][178]0[176]C2[177]P[167][153]LL$"";:[137]4320
  364. 4355 [141]9210:[151]S[170]24,15:[151]S[170]6,240:[151]S[170]4,17
  365. 4360 [129]A[178]1[164]10:[129]X[178]1[164]255[169]25
  366. 4365 [151]S[170]1,X:[130] X,A:[151]S[170]4,32
  367. 4370 P9[178]P9[170]1:[139]P9[177]1[175][187](0)[177].9[167]4390
  368. 4380 [137]4420
  369. 4390 A1[178][165]A(300)[170]100:[139]A1[179]C2[167]4420
  370. 4400 C2[178]A1:[153]"<<< PHASERS MOMENTARILY OVERLOADED
  371. 4410 PRINT"   "C2"UNITS INADVERTENTLY FIRED >>>
  372. 4420 P[178]P[171]C2:[141]4040:P5[178]C2[173]([181](S(E1,E2)[173]100))
  373. 4430 [129]G[178]1[164]8:[129]H[178]1[164]8:[139]D(G,H)[178]2[167]4520
  374. 4460 [130] H,G:[137]4720
  375. 4520 Q1[178]G[171]E7:Q2[178]H[171]E8:D4[178][186](Q1[174]2[170]Q2[174]2):P6[178]P5[173]D4
  376. 4570 J(G,H)[178]J(G,H)[171]P6:[139]J(G,H)[179][178]0[167]4650
  377. 4580 [153]"TIE-FIGHTER AT"G"CMD";[171]H"HIT"[181](P6[172]1000)[173]1000"UNITS.
  378. 4600 PRINT"LEFT ="J(G,H)"UNITS.":GOTO4460
  379. 4650 PRINTTAB(5)"*** TIE-FIGHTER DESTROYED ***
  380. 4700 S(E1,E2)[178]S(E1,E2)[171]100:K1[178]K1[171]1:D(G,H)[178]0:[137]4460
  381. 4720 I[178]1:[129]G[178]1[164]8:[129]H[178]1[164]8:[139]J(G,H)[177]0[167]P(I)[178]J(G,H):I[178]I[170]1
  382. 4730 [139]I[177]S(E1,E2)[173]100[167]4740
  383. 4732 [130] H,G
  384. 4740 [139]K1[179][178]0[175]D5[179][178]0[167]6700
  385. 4760 [139]C9[179][177]3[167][141]4040
  386. 4770 [141]3090:[137]975
  387. 4860 [143]  ** TORPEDO CONTROL **
  388. 4870 [139]R(5)[177][178]0[175]T1[177]0[167]4930
  389. 4880 [139]R(5)[179]0[167][153][163]6)"*** PHOTON TUBES ARE OUT ***
  390. 4910 IFT1=0THENPRINT"TORPEDO SUPPLY EXHAUSTED!!
  391. 4920 [137]1000
  392. 4930 [153]"TORPEDO COURSE      DEGREES.CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
  393. 4940 [133]C$:[139][200](C$,1)[178]"D"[167][153]:[153]"ONON";:[137]4930
  394. 4945 C2[178][197](C$):[137]7800
  395. 4950 [153]:T1[178]T1[171]1:N2[178][171][190](C2[172][255][173]180)[173]4:[139]N2[179]0[167]N2[178]N2[171].001
  396. 4960 [139][182](N2)[179].01[167]N2[178]0
  397. 5000 N3[178][191](C2[172][255][173]180)[173]4:[139]N3[179]0[167]N3[178]N3[171].001
  398. 5010 [139][182](N3)[179].01[167]N3[178]0
  399. 5040 P1[178][181](E7):P2[178][181](E8)
  400. 5050 P1[178]P1[170]N2:P2[178]P2[170]N3:X[178][181](P1[170].5):Y[178][181](P2[170].5):[139]P1[179].5[176]P1[177]8.5[167]5470
  401. 5100 [139]P2[179].5[176]P2[177]8.5[167]5470
  402. 5120 [139]D(X,Y)[178]0[176]D(X,Y)[178]4[167]5050
  403. 5130 [139]D(X,Y)[177]1[167]5170
  404. 5140 [153][163]10)"<< STAR DESTROYED >>
  405. 5150 S(E1,E2)=S(E1,E2)-1:GOTO5410
  406. 5170 IFD(X,Y)=5THEN5490
  407. 5180 IFD(X,Y)>2THEN5280
  408. 5230 PRINTTAB(5)"*** TIE-FIGHTER DESTROYED! ***
  409. 5240 S(E1,E2)[178]S(E1,E2)[171]100:K1[178]K1[171]1:D(X,Y)[178]0:J(X,Y)[178]0:[137]4720
  410. 5280 [153][163]6)"*** STARBASE DESTROYED!! ***
  411. 5300 FORT=1TO2000:NEXT:B1=B1-1:PRINT"":IFB1>0THEN5360
  412. 5330 PRINT"[147]"CHR$(14)"   [212]HAT DOES IT, [195]APTAIN!!  [217]OU ARE
  413. 5335 [153]"HEREBY RELIEVED OF COMMAND AND SENTENCED";
  414. 5340 [153]"TO 99 PARSECS AT HARD LABOR ON LENYGNUS 7!":[137]6810
  415. 5360 [153]"STARFLEET COMMAND IS REVIEWING YOUR
  416. 5370 PRINT"RECORD TO CONSIDER COURT MARTIAL!
  417. 5400 S(E1,E2)[178]S(E1,E2)[171]10
  418. 5410 D(X,Y)[178]0:[137]4740
  419. 5470 [153]"TORPEDO MISSED (LOUSY SHOT!)":[137]4740
  420. 5490 [153][163]5)"<<< DEATH STAR DESTROYED! >>>
  421. 5500 D5=D5-1:S(E1,E2)=INT(S(E1,E2)):GOTO5410
  422. 5550 REM  ** SMART REPORT **
  423. 5552 IFR(7)>=0THEN5560
  424. 5556 PRINTTAB(5)"*** COMMUNICATIONS ARE OUT ***":GOTO1000
  425. 5560 PRINT"[147]INTELLIGENCE REPORT:  STARDATE"D1""
  426. 5580 FORI=1TO8:FORJ=1TO8
  427. 5590 IFI=E1ANDJ=E2THEN5660
  428. 5600 IFQ(I,J)=0THEN5640
  429. 5610 IFS(I,J)>99THENPRINT" "MID$(STR$(INT(S(I,J))),2)" ";:GOTO5670
  430. 5620 IFS(I,J)<10THENPRINT" 00"MID$(STR$(INT(S(I,J))),2)" ";:GOTO5670
  431. 5630 PRINT" 0"MID$(STR$(INT(S(I,J))),2)" ";:GOTO5670
  432. 5640 PRINT"  ?  ";:GOTO5670
  433. 5660 PRINT" >[218]< ";
  434. 5670 NEXT J:PRINT:NEXT I
  435. 5700 GOSUB9000:PRINT"[147]";:GOSUB1310:GOTO1000
  436. 5720 REM  ** ASSIGN ALL STARS & ENEMY *
  437. 5740 FORA1=FNA(8)TO8:FORA2=FNA(8)TO8
  438. 5760 IFX3=0ANDS(A1,A2)<S6THENRETURN
  439. 5770 IFX3=1ANDS(A1,A2)<K2*100THENRETURN
  440. 5800 NEXT A2,A1:GOTO5740
  441. 5880 REM  *** R2-D2 ***
  442. 5882 IFR(8)>=0THEN5900
  443. 5884 PRINT"  *** R2-D2 IS UNAVAILABLE -- PUNT ***":GOTO1000
  444. 5900 Z1=0:Z2=0:Z3=0:Z4=0:Z5=0:Z6=0:Z7=0:Z8=0:Z9=0
  445. 5910 PRINT"R2-D2 AT YOUR SERVICE, SIR.
  446. 5915 [153]"1.  INTER-QUADRANT":[153][163]10)"OR":[153]"2.  INTRA-QUADRANT ON";
  447. 5920 [141]9900:[139]A$[178][199](133)[167]1000
  448. 5923 [153]:[145][197](A$)[137]5930,5935
  449. 5925 [153]LL$"";:[137]5915
  450. 5930 [133]"ENTER COORDINATES OF DESTINATION";Z9%,Z3%:[137]5940
  451. 5935 [133]"ENTER COORDINATES OF TARGET";Z9%,Z3%
  452. 5940 [139]Z9%[179]1[176]Z9%[177]8[176]Z3%[179]1[176]Z3%[177]8[167]5920
  453. 5950 [139][197](A$)[178]1[167]Z1[178]E1[171]Z9%:Z2[178]E2[171]Z3%:[137]5970
  454. 5960 Z1[178]E7[171]Z9%:Z2[178]E8[171]Z3%
  455. 5970 Z7[178][182](Z1):Z5[178][182](Z2):[139]Z5[179][177]0[176]Z7[179][177]0[167]6000
  456. 5990 [153]"THAT'S YOUR POSITION, STUPID!":[137]5920
  457. 6000 [139]Z1[177][178]0[175]Z2[179]0[167]6120
  458. 6010 [139]Z1[179]0[175]Z2[179]0[167]6210
  459. 6020 [139]Z1[179]0[175]Z2[177][178]0[167]6320
  460. 6030 [139]Z1[177][178]0[175]Z2[177][178]0[167]6410
  461. 6080 [153]LL$;:[141]9100:[153]"YOUR COMPUTED ANGLE IS"[181](Z4[172]100)[173]100"CMD DEGREES.
  462. 6090 PRINT"GOOD LUCK!  WATCH OUT FOR THOSE STARS.":GOTO1000
  463. 6120 REM  * QUADRANT 1 *
  464. 6130 IFZ5<Z7THEN6180
  465. 6150 Z6=45/Z5:Z8=Z6*Z7:Z4=90-Z8:GOTO6080
  466. 6180 Z6=45/Z7:Z4=Z6*Z5:GOTO6080
  467. 6210 REM  * QUADRANT 2 *
  468. 6220 IFZ5<Z7THEN6270
  469. 6250 Z6=45/Z5:Z8=Z6*Z7:Z4=90+Z8:GOTO6080
  470. 6270 Z6=45/Z7:Z8=Z6*Z5:Z4=180-Z8:GOTO6080
  471. 6310 REM  * QUADRANT 3 *
  472. 6320 IFZ5<Z7THEN6370
  473. 6350 Z6=45/Z5:Z8=Z6*Z7:Z4=270-Z8:GOTO6080
  474. 6370 Z6=45/Z7:Z8=Z6*Z5:Z4=180+Z8:GOTO6080
  475. 6410 REM  * QUADRANT 4 *
  476. 6420 IFZ5<Z7THEN6470
  477. 6450 Z6=45/Z5:Z8=Z6*Z7:Z4=270+Z8:GOTO6080
  478. 6470 Z6=45/Z7:Z8=Z6*Z5:Z4=360-Z8:GOTO6080
  479. 6510 PRINT"[147]"TAB(15)"[205][201][211][211][201][207][206]"L
  480. 6520 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  481. 6550 ONLGOTO7600,7550,7500
  482. 6570 PRINT"[221]"SPC(15)"[215][193][210][206][201][206][199]![146]"SPC(15)"[221]";
  483. 6580 PRINT"[221]"TAB(39)"[221]";
  484. 6590 PRINT"[221] [212]HIS MISSION IS [197][216][212][210][197][205][197][204][217][160][196][193][206][199][197][210][207][213][211]! [221]";
  485. 6600 PRINT"[221]"SPC(8)"[217]OU MAY NEVER RETURN!!"TAB(39)"[221]";
  486. 6610 PRINT"[221] [196]O YOU WISH TO ACCEPT THE CHALLENGE? [221]";
  487. 6620 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  488. 6630 [161]A$:[139]A$[178]"Y"[167]110
  489. 6640 [139]A$[179][177]"N"[167]6630
  490. 6650 [153]"(null)KAY LENAPTAIN "N$"."
  491. 6660 [153]"(null)E'LL ASSIGN YOU AN EASIER MISSION.
  492. 6670 FORX=1TO2000:NEXT:L=L-1
  493. 6680 IFL<1THENPRINT"[213]NFORTUNATELY, WE DON'T HAVE AN [197][193][211][201][197][210]":PRINT"MISSION.":GOTO6860
  494. 6690 GOTO8950
  495. 6700 REM  ** WIN **
  496. 6705 FORX=1TO1000:NEXT:PRINT"[147]"CHR$(14)TAB(11)"[195][207][206][199][210][193][212][213][204][193][212][201][207][206][211]!!
  497. 6709 [139]L[179]4[167]6745
  498. 6710 [153]"(null)HE STR$VALATN(null)LEFT$CLOSE(null)(null)ATN(null) AND ITS TASK FORCE HAVE
  499. 6720 PRINT"BEEN DESTROYED!":GOTO6750
  500. 6745 PRINT"[212]HE [212][201][197] [198][201][199][200][212][197][210][211] HAVE BEEN DESTROYED.
  501. 6750 [153]"(null)HE REPUBLIC IS SAFE!!":[137]6850
  502. 6780 [143]  ** LOSE **
  503. 6782 [129]X[178]1[164]1000:[130]:[151]53281,1:[143]  SCREEN ON
  504. 6784 [153]"LOAD"[199](14)"RIGHT$T IS STARDATE"D1"CMD."
  505. 6790 [139]P[179][178]0[167][153]"(null)OUR FIGHTER HAS BEEN DESTROYED.
  506. 6792 PRINT"[217]OU HAVE FAILED TO DESTROY THE [201]MPERIAL
  507. 6794 [153]"FORCES AND ARE HEREBY RELIEVED OF
  508. 6798 PRINT"COMMAND.
  509. 6800 [139]D5[179][178]0[167]6828
  510. 6810 [153]"(null)HE STR$VALATN(null)LEFT$CLOSE(null)(null)ATN(null) IS STILL IN OPERATION
  511. 6820 IFK1<>0THENPRINT"AND THERE WERE"K1"[212][201][197]-[198][201][199][200][212][197][210][211] LEFT AT":GOTO6830
  512. 6825 PRINT"BUT THERE WERE NO [212][201][197]-[198][201][199][200][212][197][210][211] LEFT AT":GOTO6830
  513. 6828 PRINT"[212]HERE WERE"K1"[212][201][197]-[198][201][199][200][212][197][210][211] LEFT AT
  514. 6830 [153]"THE END OF YOUR MISSION.
  515. 6850 PRINT"[193]NOTHER GAME [195]APTAIN "N$"? ";:GOSUB9900:IFA$="Y"THENPRINT"[147]":RUN8860
  516. 6855 IFA$<>"N"THENPRINT"[145][145]";:GOTO6850
  517. 6860 GOSUB9210:PRINTCHR$(9)TAB(16)"[195][200][201][195][203][197][206]!":END
  518. 7500 PRINT"[221]"SPC(15)"[195][193][213][212][201][207][206][146]"SPC(16)"[221]";
  519. 7510 PRINT"[221]"SPC(38)"[221]";
  520. 7520 PRINT"[221]   [212]HIS MISSION IS [214][197][210][217][160][196][193][206][199][197][210][207][213][211]!!   [221]";
  521. 7525 PRINT"[221]"SPC(9)"[217]OU MAY NOT RETURN!!"SPC(9)"[221]";:GOTO6610
  522. 7550 PRINT"[221]"SPC(11)"<< [193][212][212][197][206][212][201][207][206] >>"SPC(12)"[221]";:PRINT"[221]"SPC(38)"[221]";
  523. 7580 PRINT"[221]"SPC(6)"[212]HIS MISSION IS [196][193][206][199][197][210][207][213][211]!"SPC(6)"[221]";:PRINT"[221]"SPC(38)"[221]";
  524. 7590 GOTO6610
  525. 7600 PRINT"[221]"SPC(16)"[206][207][212][201][195][197][146]"SPC(16)"[221]";
  526. 7610 PRINT"[221]"SPC(38)"[221]";:PRINT"[221]"SPC(5)"[212]HIS IS A TRAINING MISSION."SPC(6)"[221]";
  527. 7630 PRINT"[221]"SPC(38)"[221]";:PRINT"[221]"SPC(6)"[193]RE YOU READY FOR LAUNCH?"SPC(7)"[221]";
  528. 7640 GOTO6620
  529. 7800 REM  ** VERIFY ANGLE **
  530. 7810 IFABS(C2)>360THEN7840
  531. 7820 IFC2<0THENC2=C2+360
  532. 7830 ONC9GOTO2670,1000,1000,4950
  533. 7840 PRINT"ANGLE"C2"DEGREES DOES NOT COMPUTE!":FORX=1TO1000:NEXT
  534. 7850 PRINT"CONTROL BEING TRANSFERRED TO R2-D2.":FORX=1TO3000:NEXT:GOTO5880
  535. 8100 REM  ** LEVEL 1 **
  536. 8110 K3=6:K4=14:K2=3:S4=100:S6=5:B2=5:D5=0:D4=19:RETURN
  537. 8200 REM  ** LEVEL 2 **
  538. 8210 K3=21:K4=19:K2=3:S4=100:S6=6:B2=3:D5=0:D4=24:RETURN
  539. 8300 REM  ** LEVEL 3 **
  540. 8310 K3=41:K4=29:K2=4:S4=150:S6=7:B2=3=D5=0:D4=29:RETURN
  541. 8400 REM  ** LEVEL 4 **
  542. 8410 K3=41:K4=49:K2=4:S4=150:S6=7:B2=2:D5=1:D4=39:RETURN
  543. 8500 REM  ** LEVEL 5 **
  544. 8510 K3=25:K4=74:K2=3:S4=199:S6=9:B2=1:D5=1:D4=39:RETURN
  545. 8600 REM  ** INTRODUCTION **
  546. 8610 PRINT"[153]   [213][192][192][192][192][192][192][192][192][192][192][192][178][192][192][174]  [213][192][192][192][192][192][201]  [176][192][192][192][192][192][201]
  547. 8620 [153]"   (null)           (null)     (null)     (null)  (null)     (null)
  548. 8630 PRINT"   [221]           [221]     [221]     [221]  [221]     [221]
  549. 8640 [153]"   MID$TANTANTANTANTANRIGHT$     (null)     -TANTANTANTANTAN<  -TANTANTANTAN=(null)
  550. 8650 PRINT"         [221]     [221]     [221]     [221]  [221]    [221]
  551. 8660 [153]"         (null)     (null)     (null)     (null)  (null)    (null)
  552. 8670 PRINT"[192][192][192][192][192][192][192][192][192][203]     [177]     [177]     [177]  [177]    [202][192][192][192][192]
  553. 8680 [153]"DEFONTANTANRIGHT$      (null)  (null)TANTANTANTANTANRIGHT$  ORTANTANTANTANTANRIGHT$  (null)TANTANTANTANTANTANTANTANTAN
  554. 8690 PRINT"[145]  [221]      [221]  [221]     [221]  [221]     [221]  [221]
  555. 8700 [153]"  (null)      (null)  (null)     (null)  (null)     (null)  (null)
  556. 8710 PRINT"  [221]  [213][201]  [221]  [171][192][192][192][192][192][179]  [171][192][192][192][192][178][203]  [202][192][192][192][192][192][201]
  557. 8720 [153]"  (null)  (null)(null)  (null)  (null)     (null)  (null)    (null)         (null)
  558. 8730 PRINT"  [221]  [221][221]  [221]  [221]     [221]  [221]    [221]         [221]
  559. 8740 [153]"  MID$TANTAN(null)MID$TANTAN(null)  >     >  >    MID$TANTANTANTANTANTANTANTANTAN(null)
  560. 8750 PRINT"[154]            [213][192][192][192][192][192][201]  [201]     [178]
  561. 8760 [153]"            (null)        (null)     (null)
  562. 8770 PRINT"            [221]        [221]     [221]
  563. 8780 [153]"            -TANTANTANTANTANRIGHT$  MID$TANTANTANTANTAN<
  564. 8790 PRINT"            [221]     [221]        [221]
  565. 8800 [153]"            (null)     (null)        (null)
  566. 8810 PRINT"            [202][192][192][192][192][192][203]        [177]
  567. 8830 [153]"SYS      DO YOU NEED INSTRUCTIONS? ";:[141]9900:[139]A$[178]"Y"[167]10000
  568. 8840 [139]A$[179][177]"N"[167][153]"ONONON":[137]8830
  569. 8850 [153]"LOADSTOP"[199](14)"":[151]53280,1:[151]53281,1
  570. 8860 [143]  ** SELECT SKILL LEVEL **
  571. 8870 [133]"(null)LEASE ENTER YOUR LAST NAME";N$:[139][200](N$,1)[177]"Z"[167]8900
  572. 8880 [139]N$[178]""[167][153]"ON";:[137]8870
  573. 8890 NI$[178][200](N$,1):NI$[178][199]([198](NI$)[170]128):N$[178]NI$[170][202](N$,2)
  574. 8900 [153]"LOAD(null)HICH MISSION DO YOU WANT TO FLY TODAY":[153]"LENAPTAIN "N$"?"
  575. 8910 [153][163]5)"1.  (null)(null)(null)(null)RIGHT$VAL":[153][163]5)"2.  RIGHT$(null)(null)VAL(null)(null)VALSTR$RIGHT$ATN(null)VAL":[153][163]5)"3.  (null)VAL(null)RIGHT$(null)(null)
  576. 8920 PRINTTAB(5)"4.  [214][197][212][197][210][193][206]":PRINTTAB(5)"5.  [198][207][207][204]"
  577. 8930 GETA$:IFA$=""THEN8930
  578. 8940 L=VAL(A$):IFL<1ORL>5THENPRINT"[215]HAT? ";:GOTO8930
  579. 8950 ONLGOSUB8100,8200,8300,8400,8500
  580. 8960 GOTO6510
  581. 9000 REM  ** PAGE CONTROL **
  582. 9010 IF(PEEK(53272)AND2)=0THENPRINT"HIT 'SPACE BAR' TO CONTINUE.[145]":GOTO9030
  583. 9020 PRINT"[200]IT [211][208][193][195][197][160][194][193][210] TO CONTINUE.[145]
  584. 9030 [139][194](197)[179][177]60[167]9030
  585. 9050 [151]198,0:[153]LC$;:[142]
  586. 9100 [143]  ** CLEAR SCREEN FROM CURSOR *
  587. 9105 PO[178][185](0):[139]PO[177]39[167]PO[178]PO[171]40
  588. 9110 [153][200](LC$,40[171]PO);
  589. 9120 [129]X[178][194](214)[164]23
  590. 9130 [153][200](LC$,40);:[130]
  591. 9140 [153][200](LC$,39);:[151]2023,32
  592. 9150 [143]  * RESTORE SCREEN LINE LINKS *
  593. 9160 [129]X[178]217[164]242:[151]X,[194](X)[176]128:[130]:[153]LL$;:[142]
  594. 9200 [143]  ** CLEAR SID **
  595. 9210 S[178]54272:[129]X[178]S[164]S[170]24:[151]X,0:[130]:[142]
  596. 9900 [143]  ** GET CHARACTER **
  597. 9910 [151]198,0
  598. 9920 [153]"SINCMD";:TM[178]TI[170]25
  599. 9930 [161]A$:[139]A$[179][177]""[167][153]"WAITCMD  ":[142]
  600. 9940 [139]TI[179]TM[167]9930
  601. 9950 [139][194](199)[179][177]0[167][151]199,0:[137]9920
  602. 9960 [151]199,1:[137]9920
  603. 10000 [143]  ** INSTRUCTIONS **
  604. 10010 [151]53280,1:[151]53281,1
  605. 10020 [153]"LOADSTOP"[199](14)"   *** RIGHT$NSTRUCTIONS FOR (null)(null)ATN(null)CLOSE(null)ATN(null)(null) ***
  606. 10050 FORX=1TO11
  607. 10060 ONXGOSUB10200,10500,10800,11100,11400,11700,12000,12300,12600,12900,13200
  608. 10080 GOSUB9000:NEXT X:GOTO13500
  609. 10200 PRINT"   [217]OU ARE THE PILOT OF AN [216]-[215][201][206][199]
  610. 10210 [153]"FIGHTER. (null)OUR MISSION IS TO SEEK AND
  611. 10220 PRINT"DESTROY A TASK FORCE OF [212][201][197]-[198][201][199][200][212][197][210][211].
  612. 10230 [153]"RIGHT$F YOU PLAY ABOVE (null)VAL(null)VAL(null) 3, YOU MUST ALSO
  613. 10240 PRINT"[145]DESTROY THE [196][197][193][212][200][160][211][212][193][210].  [217]OU HAVE A
  614. 10260 [153]"SPECIFIED NUMBER OF 'DAYS' TO COMPLETE
  615. 10270 PRINT"YOUR MISSION.
  616. 10280 [153]"   ATNBOVE (null)VAL(null)VAL(null) 2, (null)RIGHT$VAL-ASCRIGHT$CHR$LEFT$(null)VAL(null)(null) ARE (null)(null)(null)-
  617. 10290 PRINT"[211][212][193][212][201][207][206][193][210][217].  [201]F YOU TRY TO MANEUVER ON
  618. 10300 [153]"THEM, THEY WILL MOVE AND FIRE ON YOU.
  619. 10320 PRINT"   [217]OU HAVE AT LEAST ONE [211][212][193][210][194][193][211][197] TO
  620. 10330 [153]"RESUPPLY YOUR SHIP.  RIGHT$F YOU DESTROY A
  621. 10340 PRINT"[211][212][193][210][194][193][211][197], YOU'LL GET A NASTYGRAM.  [201]F
  622. 10350 [153]"YOU DESTROY YOUR (null)ATN(null)(null) STARBASE, YOU LOSE
  623. 10360 PRINT"[145]THE GAME.
  624. 10370 [153]"   (null)OU WILL BE ASSIGNED A STARTING POS-
  625. 10380 PRINT"ITION SOMEWHERE IN THE [199][193][204][193][216][217].  [212]HE
  626. 10390 [153]"CHR$ATN(null)ATN(null)(null) IS REPRESENTED BY AN 8 X 8 (null)(null)ATNSTR$-
  627. 10400 PRINT"[210][193][206][212] GRID.  [197]ACH [209][213][193][196][210][193][206][212] IS DIVIDED
  628. 10410 [153]"INTO AN 8 X 8 (null)VALLEN(null)(null)(null) GRID.":[142]
  629. 10500 [153]"LOAD   (null)OUR (null)(null)ATNSTR$(null)ATN(null)(null) AND (null)VALLEN(null)(null)(null) POSITIONS
  630. 10510 PRINT"ARE REPRESENTED BY PAIRS OF INTEGERS
  631. 10520 [153]"SEPARATED BY A DASH.  (I.E. (null)(null)ATNSTR$(null)ATN(null)(null)
  632. 10530 PRINT"4-3, [211][197][195][212][207][210] 1-7)  [212]HE FIRST NUMBER IS
  633. 10540 [153]"THE VERTICAL COORDINATE, THE SECOND IS
  634. 10550 PRINT"THE HORIZONTAL.  [211]ECTOR 1-1 IS IN THE
  635. 10560 [153]"UPPER LEFT-HAND CORNER OF THE GIVEN
  636. 10565 PRINT"QUADRANT.  [209]UADRANT 1-1 IS IN THE UPPER
  637. 10567 [153]"LEFT-HAND CORNER OF THE GALAXY.
  638. 10570 PRINT"[198]OR EXAMPLE:
  639. 10580 [153][163]11)"  1 2 3 4 5 6 7 8
  640. 10590 PRINTTAB(11)"1 . . . . . . . .
  641. 10600 [153][163]11)"2 . . . . . . . .
  642. 10610 PRINTTAB(11)"3 . . . . . . . .
  643. 10620 [153][163]11)"4 . . . . . . (null) .
  644. 10630 PRINTTAB(11)"5 . . . . . . . .
  645. 10640 [153][163]11)"6 . . . . . . . .
  646. 10650 PRINTTAB(11)"7 . . . . . . . .
  647. 10660 [153][163]11)"8 . . . . . . . .
  648. 10670 PRINT"[217]OUR POSITION HERE IS 4-7.":RETURN
  649. 10800 PRINT"[147]"CHR$(142)"A 'SHORT RANGE' SENSOR SCAN WILL BE
  650. 10810 [153]"DISPLAYED AT ALL TIMES EXCEPT DURING
  651. 10820 PRINT"INTELLIGENCE REPORTS.  THE INFORMATION
  652. 10830 [153]"PRESENTED IS AUTOMATICALLY UPDATED BY
  653. 10840 PRINT"THE ONBOARD COMPUTER.  SYMBOLOGY ON
  654. 10850 [153]"YOUR SENSOR SCREEN IS AS FOLLOWS:
  655. 10860 PRINTTAB(5)">[218]< - YOUR FIGHTER
  656. 10870 [153][163]5)"-(null)< - TIE-FIGHTER
  657. 10880 PRINTTAB(5)"[215][219][215] - STARBASE
  658. 10890 [153][163]5)" *  - STAR
  659. 10900 PRINTTAB(5)"[202][209][201] - DEATH STAR
  660. 10910 [153][163]5)" :  - VOID
  661. 10920 PRINT"A MINI STATUS REPORT IS ALSO DISPLAYED.":RETURN
  662. 11100 PRINT"[147]"CHR$(14)"[212]HE FOLLOWING [195][207][205][205][193][206][196][211] ARE AVAILABLE:
  663. 11110 [153]"1 - ASC(null)RIGHT$CHR$LEFT$(null)CLOSELEN(null)(null)(null)(null)(null)(null) * (null)HIS COMMAND OFFERS
  664. 11120 PRINT"[145]    TWO OPTIONS, [193][213][212][207][205][193][212][201][195][160]AND [205][193][206][213][193][204].
  665. 11130 [153]"    (null)NDER ATN(null)(null)(null)(null)ATN(null)RIGHT$LEN CONTROL, YOU SIMPLY
  666. 11140 PRINT"    ENTER THE COORDINATES OF YOUR DESTI-
  667. 11150 [153]"ON    NATION (IE 3,5).  (null)HE REST IS AUTO-
  668. 11160 PRINT"    MATIC.  [212]RAVEL IN THIS MODE IS AT
  669. 11170 [153]"    (null)RIGHT$CHR$LEFT$(null) (null)(null)VALVALSTR$ AND REQUIRES MORE FUEL
  670. 11180 PRINT"    THAN TRAVEL IN MANUAL MODE.  [193]UTO-
  671. 11190 [153]"    MATIC MODE CAN BE USED FOR RIGHT$(null)(null)VAL(null)-
  672. 11200 PRINT"    [209][213][193][196][210][193][206][212] FLIGHT [207][206][204][217].":RETURN
  673. 11400 PRINT"[147][198][204][201][199][200][212][160][195][207][206][212][210][207][204] CONTINUED:
  674. 11410 [153]"   (null)ATN(null)(null)ATN(null)CLOSEMODE CAN BE USED FOR RIGHT$(null)(null)VAL(null)- OR
  675. 11420 PRINT"[145][201][206][212][210][193]-[209][213][193][196][210][193][206][212] FLIGHT.  [212]RAVEL IN MANUAL
  676. 11430 [153]"ONMODE IS AT (null)ATN(null)(null)CLOSE(null)(null)VALVALSTR$ AND YOU MUST ENTER
  677. 11440 PRINT"[145]THE DESIRED [195][207][213][210][211][197] AND [215][193][210][208][160][198][193][195][212][207][210] AS
  678. 11450 [153]"DESCRIBED BELOW.
  679. 11460 PRINT"   [217]OUR COURSE MUST BE GIVEN IN DEGREES
  680. 11470 [153]"WITH ZERO DEGREES BEING (null)(null)(null)(null)LEFT$, AS SHOWN.
  681. 11480 PRINTTAB(20)"0":PRINTTAB(16)"270 + 90":PRINTTAB(19)"180
  682. 11500 [153]"   (null)NE (null)ATN(null)(null)CLOSEASCATNLEN(null)(null)(null) IS THE SIZE OF ONE
  683. 11510 PRINT"QUADRANT.  [212]HEREFORE, TO GET FROM QUAD-
  684. 11520 [153]"RANT 6-5 TO 5-5 YOU WOULD USE COURSE 0
  685. 11530 PRINT"DEGREES, WARP FACTOR 1.  [217]OUR ENGINES
  686. 11540 [153]"WILL SHUT DOWN AUTOMATICALLY IF YOU TRY
  687. 11550 PRINT"TO LEAVE THE GALAXY.":RETURN
  688. 11700 PRINT"[147]2 - [204][207][206][199][160][210][193][206][199][197][160][211][197][206][211][207][210][160][211][195][193][206] * [196]ISPLAYS
  689. 11710 [153]"    CONDITIONS IN SPACE FOR ONE QUADRANT
  690. 11720 PRINT"[145]    ON ALL SIDES OF YOUR PRESENT POSI-
  691. 11730 [153]"    TION.  (null)OU, THEREFORE, ARE IN THE
  692. 11740 PRINT"    CENTER OF THE SCAN.  [196]ATA ON THE
  693. 11750 [153]"    SENSOR SCREEN IS CODED IN THE FORM
  694. 11760 PRINT"    OF A THREE DIGIT NUMBER WHERE THE
  695. 11770 [153]"    (null)(null)RIGHT$(null)(null) DIGIT IS THE NUMBER OF (null)(null)ATN(null)(null),
  696. 11780 PRINT"    THE [212][197][206][211] DIGIT IS THE NUMBER OF
  697. 11790 [153]"    (null)(null)ATN(null)PEEKATN(null)VAL(null), AND THE LEFT$(null)(null)STR$(null)VALSTR$(null) DIGIT
  698. 11800 PRINT"    IS THE NUMBER OF [212][201][197]-[198][201][199][200][212][197][210][211] IN
  699. 11810 [153]"    THE QUADRANT REPRESENTED.  ATN '?'
  700. 11820 PRINT"    INDICATES A QUADRANT OUTSIDE THE
  701. 11830 [153]"    GALAXY.  ATNS PREVIOUSLY STATED, YOU
  702. 11840 PRINT"    CANNOT LEAVE THE GALAXY.
  703. 11850 [153]"ASCOR EXAMPLE:  207 = 2 (null)RIGHT$VAL-ASCRIGHT$CHR$LEFT$(null)VAL(null)(null),
  704. 11860 PRINTTAB(14)"0 [194][193][211][197][211], AND 7 [211][212][193][210][211].":RETURN
  705. 12000 PRINT"[147]3 - [198][201][210][197][160][208][200][193][211][197][210][211] * [193]LLOWS YOU TO DESTROY
  706. 12010 [153]"ON    (null)RIGHT$VAL-ASCRIGHT$CHR$LEFT$(null)VAL(null)(null) BY ZAPPING THEM WITH
  707. 12020 PRINT"    SUITABLY LARGE UNITS OF ENERGY.
  708. 12030 [153]"    (null)(null)ATN(null)(null), (null)(null)ATN(null)PEEKATN(null)VAL(null), AND THE STR$VALATN(null)LEFT$CLOSE(null)(null)ATN(null)
  709. 12040 PRINT"[145]    ARE [206][207][212] AFFECTED BY PHASERS.  [212]HE
  710. 12050 [153]"    USE OF PHASERS DEPLETES YOUR FUEL
  711. 12060 PRINT"    SUPPLY SO BE DISCREET.  [194]Y THE WAY,
  712. 12070 [153]"    (null)RIGHT$VAL-ASCRIGHT$CHR$LEFT$(null)VAL(null)(null) HAVE PHASERS ALSO!":[142]
  713. 12300 [153]"LOAD4 - ASCRIGHT$(null)VALCLOSE(null)LEFT$(null)(null)(null)(null)CLOSE(null)(null)(null)(null)VALSTR$(null)VAL(null) * (null)ORPEDO
  714. 12310 PRINT"    COURSE IS THE SAME AS FOR [198][204][201][199][200][212]
  715. 12320 [153]"    LEN(null)(null)(null)(null)(null)(null).  RIGHT$F YOU HIT THE (null)RIGHT$VAL-
  716. 12330 PRINT"    [198][201][199][200][212][197][210], IT IS DESTROYED AND CANNOT
  717. 12340 [153]"    FIRE BACK AT YOU.  RIGHT$F YOU MISS, YOU
  718. 12350 PRINT"    ARE SUBJECT TO RETURN PHASER FIRE.
  719. 12360 [153]"    (null)ORPEDOES WILL ALSO DESTROY (null)(null)ATN(null)(null),
  720. 12370 PRINT"    [211][212][193][210][194][193][211][197][211], AND THE [196][197][193][212][200][160][211][212][193][210].":RETURN
  721. 12600 PRINT"[147]5 - [196][193][205][193][199][197][160][195][207][206][212][210][207][204][160][210][197][208][207][210][212] * [199]IVES THE
  722. 12610 [153]"    STATE OF REPAIR OF ALL DEVICES.  ATN
  723. 12620 PRINT"    NEGATIVE NUMBER OF [211][212][193][210][196][193][217][211] INDI-
  724. 12630 [153]"    CATES THE DEVICE IS DAMAGED AND THE
  725. 12640 PRINT"    NUMBER OF DAYS REQUIRED FOR REPAIR.
  726. 12650 [153]"    (null)HERE ARE EXCEPTIONS, HOWEVER.":[142]
  727. 12900 [153]"LOAD6 - RIGHT$(null)(null)VAL(null)(null)RIGHT$CHR$VAL(null)LENVALCLOSE(null)VAL(null)(null)(null)(null) * STR$ISPLAYS THE
  728. 12910 PRINT"    RESULTS OF ALL PREVIOUS [204][207][206][199][160][210][193][206][199][197]
  729. 12920 [153]"    SENSOR SCANS.  (null)HE REPORT DATA IS
  730. 12930 PRINT"    CODED THE SAME AS ON THE [204][207][206][199][160][210][193][206][199][197]
  731. 12940 [153]"    SCAN.  RIGHT$T IS RECOMMENDED THAT YOU
  732. 12950 PRINT"    [193][204][215][193][217][211] DO A [204][207][206][199][160][210][193][206][199][197] SCAN BEFORE
  733. 12960 [153]"    LEAVING A QUADRANT.":[142]
  734. 13200 [153]"LOAD7 - (null)2-STR$2 (null)ATN(null)RIGHT$CHR$ATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)PEEK(null)(null) * LENOMPUTES
  735. 13210 PRINT"    ANGLES FOR USE WITH [198][204][201][199][200][212][160][195][207][206][212][210][207][204]
  736. 13220 [153]"    AND ASCRIGHT$(null)VALCLOSE(null)(null)(null)(null)VALSTR$(null) COMMANDS.  RIGHT$(null)(null)(null)ATN-
  737. 13230 PRINT"    [209][213][193][196][210][193][206][212] ANGLES ARE COMPUTED RELA-
  738. 13240 [153]"    TIVE TO YOUR POSITION.  RIGHT$(null)(null)VAL(null)-(null)(null)ATNSTR$-
  739. 13250 PRINT"    [210][193][206][212] ANGLES ARE COMPUTED RELATIVE
  740. 13260 [153]"    TO THE (null)(null)ATNSTR$(null)ATN(null)(null) YOU ARE IN.  ATNGAIN,
  741. 13270 PRINT"    0 DEGREES IS [206]ORTH, 90 IS [197]AST, 180
  742. 13280 [153]"    IS (null)OUTH AND 270 IS (null)EST.  (null)UADRANT
  743. 13290 PRINT"    AND SECTOR COORDINATES ARE ENTERED
  744. 13300 [153]"    AS PAIRS OF NUMBERS SEPARATED BY A
  745. 13310 PRINT"    COMMA [207][210] CARRIAGE RETURN.":RETURN
  746. 13500 PRINT"[147]1.  [215]HEN YOU SEE [195][207][205][205][193][206][196] DISPLAYED,
  747. 13510 [153]"    ENTER ONE OF THE LEGAL COMMANDS
  748. 13520 PRINT"    (1 THRU 7).
  749. 13530 [153]"2.  RIGHT$F YOU ENTER AN ILLEGAL COMMAND,
  750. 13540 PRINT"    A LIST OF LEGAL COMMANDS WILL BE
  751. 13550 [153]"    DISPLAYED.
  752. 13560 PRINT"3.  [211]OME COMMANDS REQUIRE YOU TO ENTER
  753. 13570 [153]"    DATA.  VALNTER THE DATA AND HIT (null)VAL(null)(null)(null)(null)
  754. 13580 PRINT"[145]    IF REQUIRED.
  755. 13590 [153]"4.  ASCUNCTION KEY 'F1' CAN BE USED TO
  756. 13600 PRINT"    RESTORE THE SCREEN DISPLAY IF IT
  757. 13605 [153]"    SCROLLS DURING HEAVY FIGHTING.
  758. 13606 IFLTHEN1970
  759. 13610 PRINT"[193]RE YOU READY TO ASSUME COMMAND? ";:GOSUB9900
  760. 13620 IFA$="Y"THENPRINT"[147]";:GOTO8860
  761. 13630 IFA$<>"N"THENPRINT"[145][145][145]";:GOTO13610
  762. 13640 GOTO10000
  763. 15000 ********* VARIABLES *********
  764. 15010 :
  765. 15020 **** ARRAYS ****
  766. 15030 :
  767. 15040 D(X,Y) - CURRENT QUADRANT
  768. 15050 :        0 = VOID
  769. 15060 :        1 = STAR
  770. 15070 :        2 = TIE FIGHTER
  771. 15080 :        3 = STARBASE
  772. 15090 :        4 = YOUR POSITION
  773. 15100 :        5 = DEATH STAR
  774. 15110 :
  775. 15120 S(X,Y) - THE GALAXY
  776. 15130 :
  777. 15140 Q(X,Y) - KEEPS TRACK OF LONG RANGE               SCANS FOR SMART REPORTS
  778. 15150 :        1 - LR SCAN DONE
  779. 15160 :        0 - THIS QUADRANT UNKNOWN
  780. 15170 J(X,Y) - KEEPS TRACK OF ENEMY FIGH               TER'S ENERGY SUPPLY
  781. 15180 :
  782. 15190 R(X) - DAMAGE CONTROL, CONTENTS <0             IMPLIES THAT SYSTEM DAMAGED
  783. 15200 :    X = 1 - WARP DRIVE
  784. 15210 :        2 - SHORT RANGE SENSORS
  785. 15220 :        3 - LONG RAMGE SENSORS
  786. 15230 :        4 - PHASER CONTROL
  787. 15240 :        5 - TORPEDO CONTROL
  788. 15250 :        6 - DAMAGE CONTROL
  789. 15260 :        7 - COMMUNICATIONS
  790. 15270 :        8 - R2-D2 (NAV)
  791. 15275 :
  792. 15280 **** SIMPLE ****
  793. 15285 :
  794. 15290 B1 - # STARBASES
  795. 15300 B2 - MAX STARBASES
  796. 15310 C1 - CONDITION:                              0=GRN, 1=YEL, 2=RED, 3=DOCK
  797. 15320 C2 - UTILITY: COMMAND ETC.
  798. 15330 D1 - CURRENT STARDATE
  799. 15340 D2 - DATE MISSION ENDS
  800. 15350 D3 - MISSION LENGTH
  801. 15355 D4 - MINIMUM MISSION LENGTH -1
  802. 15360 D5 - # DEATH STARS
  803. 15370 K1 - # TIE FIGHTERS
  804. 15380 K2 - MAX ENEMY/QUADRANT
  805. 15390 L  - SKILL LEVEL
  806. 15400 P  - ENERGY/FUEL UNITS
  807. 15410 S1 - # STARS
  808. 15420 S4 - LOWER LIMIT FOR S1
  809. 15430 S6 - MAX STARS/QUADRANT
  810. 15440 T1 - # TORPEDOES
  811. 15445 P5 - ENERGY TIE FIRED AT X-WING
  812. 15450 P6 - ENERGY THAT HIT X-WING
  813. 15460 P9 - # TIMES PHASERS FIRED
  814. 15470 K3 & K4 - LIMITS FOR K1
  815. 15480 E1,E2 - QUADRANT COORDINATES
  816. 15490 E7,E8 - SECTOR COORDINATES
  817. 15500 :
  818. 15510 **** FLT & TORP CONTROL ****
  819. 15520 :
  820. 15530 N2 - Y INCREMENT
  821. 15540 N3 - X INCREMENT
  822. 15550 E3,E4 - OLD SECTOR (Y,X)
  823. 15560 P1,P2 - NEW SECTOR (Y,X)
  824. 15570 S3 - NEW QUAD (X OR Y) FLT ONLY
  825. 15580 :
  826. 15590 ******* SKILL LEVEL TABLE *******
  827. 15600 :
  828. 15610 LEVEL:  1        2        3
  829. 15620 -------------------------------
  830. 15630 K1    15-20    20-40    30-70
  831. 15640 K2      3        3        4
  832. 15650 S1   101-200  101-200  151-300
  833. 15660 S6      5        6        7
  834. 15670 B1     3-5      2-3      1-3
  835. 15680 T1     20       20       20
  836. 15690 P     3000     3000     3000
  837. 15700 D3    20-30    25-35    30-40
  838. 15705 -------------------------------
  839. 15710 :
  840. 15720 LEVEL:  4        5
  841. 15730 ----------------------
  842. 15740 K1    50-90    75-100
  843. 15750 S1   151-300  200-399
  844. 15760 S6      7        9
  845. 15770 B1     1-2       1
  846. 15780 T1      20       20
  847. 15790 P      3000     3000
  848. 15800 D5      1        1
  849. 15810 D3    40-50    40-50
  850. 15820 END
  851.